home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Shareware City / Education / RLaB / rlib / hilb.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  353 b   |  22 lines  |  [TEXT/ttxt]
  1. //-------------------------------------------------------------------//
  2. //
  3. //  Syntax:    hilb ( N )
  4.  
  5. //  Description:
  6.  
  7. //  Generate a NxN Hilbert matrix.
  8.  
  9. //-------------------------------------------------------------------//
  10.  
  11. hilb = function(n)
  12. {
  13.   local(i,j,h);
  14.  
  15.   for(i in 1:n) {
  16.     for(j in 1:n) {
  17.       h[i;j] = 1/(i+j-1);
  18.     }
  19.   }
  20.   return h;
  21. };
  22.